home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / drvplus / driveinf.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-06  |  9.7 KB  |  318 lines
  1. VERSION 2.00
  2. Begin Form DriveInfo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Drive Information"
  6.    ClientHeight    =   4410
  7.    ClientLeft      =   3030
  8.    ClientTop       =   2130
  9.    ClientWidth     =   3405
  10.    ControlBox      =   0   'False
  11.    Height          =   4815
  12.    Left            =   2970
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4410
  17.    ScaleWidth      =   3405
  18.    Top             =   1785
  19.    Width           =   3525
  20.    Begin CommandButton Command1 
  21.       BackColor       =   &H00C0C0C0&
  22.       Cancel          =   -1  'True
  23.       Caption         =   "O &K A Y"
  24.       Default         =   -1  'True
  25.       Height          =   375
  26.       Left            =   240
  27.       TabIndex        =   7
  28.       Top             =   3840
  29.       Width           =   2895
  30.    End
  31.    Begin DriveListBox Drive1 
  32.       Height          =   315
  33.       Left            =   240
  34.       TabIndex        =   0
  35.       Top             =   240
  36.       Width           =   2895
  37.    End
  38.    Begin Label Label2 
  39.       Alignment       =   1  'Right Justify
  40.       BackStyle       =   0  'Transparent
  41.       Caption         =   "Label2"
  42.       Height          =   255
  43.       Index           =   9
  44.       Left            =   1800
  45.       TabIndex        =   21
  46.       Top             =   3360
  47.       Width           =   1335
  48.    End
  49.    Begin Label Label1 
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "Substituted Drive:"
  52.       Height          =   255
  53.       Index           =   9
  54.       Left            =   240
  55.       TabIndex        =   20
  56.       Top             =   3360
  57.       Width           =   1575
  58.    End
  59.    Begin Label Label2 
  60.       Alignment       =   1  'Right Justify
  61.       BackStyle       =   0  'Transparent
  62.       Caption         =   "Label2"
  63.       Height          =   255
  64.       Index           =   8
  65.       Left            =   1800
  66.       TabIndex        =   19
  67.       Top             =   3120
  68.       Width           =   1335
  69.    End
  70.    Begin Label Label2 
  71.       Alignment       =   1  'Right Justify
  72.       BackStyle       =   0  'Transparent
  73.       Caption         =   "Label2"
  74.       Height          =   255
  75.       Index           =   7
  76.       Left            =   1800
  77.       TabIndex        =   18
  78.       Top             =   2880
  79.       Width           =   1335
  80.    End
  81.    Begin Label Label2 
  82.       Alignment       =   1  'Right Justify
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Label2"
  85.       Height          =   255
  86.       Index           =   6
  87.       Left            =   1800
  88.       TabIndex        =   17
  89.       Top             =   2640
  90.       Width           =   1335
  91.    End
  92.    Begin Label Label1 
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "CD Drive:"
  95.       Height          =   255
  96.       Index           =   8
  97.       Left            =   240
  98.       TabIndex        =   16
  99.       Top             =   3120
  100.       Width           =   1575
  101.    End
  102.    Begin Label Label1 
  103.       BackStyle       =   0  'Transparent
  104.       Caption         =   "Local Drive:"
  105.       Height          =   255
  106.       Index           =   7
  107.       Left            =   240
  108.       TabIndex        =   15
  109.       Top             =   2880
  110.       Width           =   1575
  111.    End
  112.    Begin Label Label1 
  113.       BackStyle       =   0  'Transparent
  114.       Caption         =   "Removable Drive:"
  115.       Height          =   255
  116.       Index           =   6
  117.       Left            =   240
  118.       TabIndex        =   14
  119.       Top             =   2640
  120.       Width           =   1575
  121.    End
  122.    Begin Label Label2 
  123.       Alignment       =   1  'Right Justify
  124.       BackStyle       =   0  'Transparent
  125.       Caption         =   "Label2"
  126.       Height          =   255
  127.       Index           =   5
  128.       Left            =   1800
  129.       TabIndex        =   13
  130.       Top             =   2160
  131.       Width           =   1335
  132.    End
  133.    Begin Label Label2 
  134.       Alignment       =   1  'Right Justify
  135.       BackStyle       =   0  'Transparent
  136.       Caption         =   "Label2"
  137.       Height          =   255
  138.       Index           =   4
  139.       Left            =   1800
  140.       TabIndex        =   12
  141.       Top             =   1920
  142.       Width           =   1335
  143.    End
  144.    Begin Label Label2 
  145.       Alignment       =   1  'Right Justify
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "Label2"
  148.       Height          =   255
  149.       Index           =   3
  150.       Left            =   1800
  151.       TabIndex        =   11
  152.       Top             =   1680
  153.       Width           =   1335
  154.    End
  155.    Begin Label Label1 
  156.       BackStyle       =   0  'Transparent
  157.       Caption         =   "Bytes/Sector:"
  158.       Height          =   255
  159.       Index           =   5
  160.       Left            =   240
  161.       TabIndex        =   10
  162.       Top             =   2160
  163.       Width           =   1575
  164.    End
  165.    Begin Label Label1 
  166.       BackStyle       =   0  'Transparent
  167.       Caption         =   "Sectors/Cluster:"
  168.       Height          =   255
  169.       Index           =   4
  170.       Left            =   240
  171.       TabIndex        =   9
  172.       Top             =   1920
  173.       Width           =   1575
  174.    End
  175.    Begin Label Label1 
  176.       BackStyle       =   0  'Transparent
  177.       Caption         =   "Clusters/Drive:"
  178.       Height          =   255
  179.       Index           =   3
  180.       Left            =   240
  181.       TabIndex        =   8
  182.       Top             =   1680
  183.       Width           =   1575
  184.    End
  185.    Begin Label Label2 
  186.       Alignment       =   1  'Right Justify
  187.       BackStyle       =   0  'Transparent
  188.       Caption         =   "Label2"
  189.       Height          =   255
  190.       Index           =   2
  191.       Left            =   1560
  192.       TabIndex        =   6
  193.       Top             =   1200
  194.       Width           =   1575
  195.    End
  196.    Begin Label Label2 
  197.       Alignment       =   1  'Right Justify
  198.       BackStyle       =   0  'Transparent
  199.       Caption         =   "Label2"
  200.       Height          =   255
  201.       Index           =   1
  202.       Left            =   1560
  203.       TabIndex        =   5
  204.       Top             =   960
  205.       Width           =   1575
  206.    End
  207.    Begin Label Label2 
  208.       Alignment       =   1  'Right Justify
  209.       BackStyle       =   0  'Transparent
  210.       Caption         =   "Label2"
  211.       Height          =   255
  212.       Index           =   0
  213.       Left            =   1560
  214.       TabIndex        =   4
  215.       Top             =   720
  216.       Width           =   1575
  217.    End
  218.    Begin Label Label1 
  219.       BackStyle       =   0  'Transparent
  220.       Caption         =   "Total Free:"
  221.       Height          =   255
  222.       Index           =   2
  223.       Left            =   240
  224.       TabIndex        =   3
  225.       Top             =   1200
  226.       Width           =   1215
  227.    End
  228.    Begin Label Label1 
  229.       BackStyle       =   0  'Transparent
  230.       Caption         =   "Total Used:"
  231.       Height          =   255
  232.       Index           =   1
  233.       Left            =   240
  234.       TabIndex        =   2
  235.       Top             =   960
  236.       Width           =   1215
  237.    End
  238.    Begin Label Label1 
  239.       BackStyle       =   0  'Transparent
  240.       Caption         =   "Total Size:"
  241.       Height          =   255
  242.       Index           =   0
  243.       Left            =   240
  244.       TabIndex        =   1
  245.       Top             =   720
  246.       Width           =   1215
  247.    End
  248. Sub CheckDriveTypes (Drive%)
  249.     d% = IsDriveRemovable(Drive%)
  250.     GoSub GetWord: label2(6).Caption = Word$
  251.     d% = IsDriveLocal(Drive%)
  252.     GoSub GetWord: label2(7).Caption = Word$
  253.     d% = IsDriveCD(Drive%)
  254.     GoSub GetWord: label2(8).Caption = Word$
  255.     d% = IsDriveSubst(Drive%)
  256.     GoSub GetWord: label2(9).Caption = Word$
  257.     Exit Sub
  258. GetWord:
  259.     If d% = False Then
  260.         Word$ = "no"
  261.         ElseIf d% = True Then Word$ = "yes"
  262.         Else
  263.         Word$ = "invalid"
  264.         End If
  265.     Return
  266. End Sub
  267. Sub Command1_Click ()
  268.     Unload Me
  269. End Sub
  270. Sub Drive1_Change ()
  271. StartDrvChg:
  272.     Screen.MousePointer = 11
  273.     DriveLabel$ = UCase$(Drive1.Drive)
  274.     DriveNbr% = Asc(DriveLabel$) - 64
  275.     x& = GetDriveSize(DriveNbr%)
  276.     y& = GetDriveUsed(DriveNbr%)
  277.     z& = GetDriveFree(DriveNbr%)
  278.     a& = GetClustersOnDrive(DriveNbr%)
  279.     b& = GetSectorsPerCluster(DriveNbr%)
  280.     c& = GetBytesPerSector(DriveNbr%)
  281.     Screen.MousePointer = 0
  282.     If x& = 0 Then
  283.         MsgBox "Unavailable drive!", 16, "Drive Error"
  284.         drv% = GetDefaultDrive()
  285.         Drive1.Drive = UCase$(Chr$(drv% + 64))
  286.         GoTo StartDrvChg
  287.         End If
  288.     label2(0).Caption = Format$(x& / 1024, "###,###,##0") + " KB"
  289.     label2(1).Caption = Format$(y& / 1024, "###,###,##0") + " KB"
  290.     label2(2).Caption = Format$(z& / 1024, "###,###,##0") + " KB"
  291.     label2(3).Caption = Format$(a&, "###,###,##0")
  292.     label2(4).Caption = Format$(b&, "###,###,##0")
  293.     label2(5).Caption = Format$(c&, "###,###,##0")
  294.     CheckDriveTypes DriveNbr%
  295. End Sub
  296. Sub Form_Load ()
  297.     FormCenterForm Me, DemoMain
  298.     dd% = GetDefaultDrive()
  299.     Drive1.Drive = Chr$(dd% + 64)
  300.     x& = GetDriveSize(0)
  301.     y& = GetDriveUsed(0)
  302.     z& = GetDriveFree(0)
  303.     a& = GetClustersOnDrive(0)
  304.     b& = GetSectorsPerCluster(0)
  305.     c& = GetBytesPerSector(0)
  306.     label2(0).Caption = Format$(x& / 1024, "###,###,##0") + " KB"
  307.     label2(1).Caption = Format$(y& / 1024, "###,###,##0") + " KB"
  308.     label2(2).Caption = Format$(z& / 1024, "###,###,##0") + " KB"
  309.     label2(3).Caption = Format$(a&, "###,###,##0")
  310.     label2(4).Caption = Format$(b&, "###,###,##0")
  311.     label2(5).Caption = Format$(c&, "###,###,##0")
  312.     CheckDriveTypes dd%
  313.     Screen.MousePointer = 0
  314. End Sub
  315. Sub Form_Paint ()
  316.     DoForm3D Me, sunken, 1, 5
  317. End Sub
  318.